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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003754 0000 1226+CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 00000D 1345 BS13 EQU 13 
003756 0000 1227+CSTLY DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND QOO000E 1346 BS14 EQU 4 
003758 0000 12284#CSTL5S DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OO000F 1347 BS15 EQU 15 
00375A 0000 12294+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 1349 COPY 17820 01DEC76 
00375c 0000 1230+CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 1350 17820 TUIT SERRS 
OO0375E 0000 1231*CSTL8 DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND De etre Aeterna eye ee gee Mote See eM ee ee ee Or Gee y 
1232+* + 
003760 0000 12334+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 1353+#* TEST UNIT 
003762 00000000 1234+$DATA DC 2A (*-* OPTIONAL DATA 1354+* 
003766 0021 12354+$INTL DC X "002 INTERRUPT LEVEL REQUESTED 1355+* T7820 SETUP FOR SCOPE LOOPS 12/01/76 
003768 0000 1236+TURTN DC Bane TEST UNIT RETURN ADRS TO MDI 1356+* 
00376A 0O0OB2 {237+$DVID DC X"OOB DEVICE ID 1357+* PURPOSE 
00376C 19D0 1238+SVCAL DC A DEVADD) ADRS OF DEVICE ADDRESS 135 8+* 
00376EF 0000 1239+ | DC A (*-*) IBIS CYLINDER ADDRESS een FUNCTION: 
+ ‘e 
1241+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 13614+* - PROGRAM INITIALIZES ATTACHMENT. 
1242+ FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA APE 1362+* RECALI BRATE 
1243 +% STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. Erie ‘ SEEK TO CE TRACK 
+ e 
003770 4020 3730 3c02 12454+T3C02 MVWI X*3C02',$TUID SET UP TEST UNIT ID 1365+* 
003776 5700 1206+ BXS R7 RETURN TO MDI SUPVR feet CALLING SEQUENCE 
OPY OMEQU 
1249 KEEN ARS EAE REAL Es 4 RHETT AEAAE SEANAD KREWE CREO HERE ee BEER ERA OR 1368+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
1250 * x 1369+* ‘ NO STATUS PASSED BACK TO MDI 
1251 * EQUATED NAMES FOR SUPPORTED SVC'S * 1370+* 
1252 * * 1371+* EXITS NORMAL 
1253 I RR RR OK IR ICR IR III FRI ROI IR FOR IOI IOI KK 1372+* MDI TERMINATES LOOP 
000000 1254 OUT EQU OouUT SVC 1373+* 
000001 1255 OUTIN EQU OUTIN SVC 1374+* EXITS ERPOR 
000002 1256 IDLE EQU 2 IDLE SVC 1375+* : NONE 
000003 1257 ASCII EQU 3 HEX TO ASCII SVC 1376+* 
000004 1258 CHNGE EQU 4 CHANGE LEVEL SVC 1377+* RETURN CONTROL 
000005 1259 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 1378+* 
000006 1260 EXIT EQU 6 EXIT SVC 1379+* B TURTN* RETURN TO MDI SUPERVISOR 
000007 1261 TERM EQU 7 TERMINATE SVC 1380+* 
000008 1262 RESET EQU 8 RESET DEVICE SVC 73 BY HH He HM He He He HE He ee He eH He He eR a he He 3 He EC ie 2c He Hee ee ee ee He he ie he a i ee Ae ok a i KK 
000009 1263 RID EOU 9 READ ID svc 003778 6FOD 3768 1382+T7820 MVW 7 SAVE RETURN ADDRESS 
OOOOOA 1264 START EOU 10 START CYCLE STEAL SVC 00377C 4020 3730 7820 1383+ MHVWI X'4820' STUID SAVE TU ID FOR DISPLAY 
0Q0000B 1265 STCSS EOU 11 START CYCLE STEAL STATUS SVC 003782 4424 372A 1384+ MVA OPTN1, 4 SET UP POINTER ADRS IN R4 
00000C 1266 PREP EOU 12 PREPARE DEVICE SVC 003786 6E03 3CA6 1385+ BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
00000D 1267 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 00378A 3CDA 1386+ DC A (SERR $) ERROR ADRS FOR INVALID PPEP 
OOO000E 1268 READ1 EQU 14 READ WITH FUNCTION PIT 3 ON SVC 1387+* 
OOO000F 1269 RSTAT EOU 15 READ STATUS SVC 00378C 4724 3C92 1388 S20A MVA ITOBLK,R7 SETUP Tf 
000010 1270 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 003790 c020 0232 1389 MVB CPUID, RO DETERMINE TYPE OF PROCESSOR 
000011 1271 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 003794 FQ25 1390 CBI 37,R0 * 
000012 1272 CTRL EOU 18 CONTROL SVC 003796 1804 1391 INE t26TC JUMP IF NOT 4955 
000013 1273 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 003798 4020 37AA 254C 1392 MVWI X'254C!",T20T1+2 LOAD TIME CONSTANT FOR 2 SEC 
000014 1274 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC OO37T9E 5003 1393 T20T2 
000015 1275 HIO EOU 21 HALT ALL 1/0 0037A0 4020 37AA OCOE 1394 T20TC MVWI X'OCOE',T20T1+2 (4953) LOAD TIME CONS FOR 2 SEC 
000016 1276 RECSD EQU 22 REQUEST USE OF DCP DISK SVC 0037A6 6008 1395 T20T2 svc RESET SSUF IO RESET 
000017 1277 RELSD ROU 23 RELEASE USE OF DCP DISK SVC OO037A8 4024 0000 1396 T20T1 MVWI xX*t0000',F0 TIME OUT 2 SEC 
000018 1278 HALT EOU 24 HALT Svc QO37AC 6002 1397 TO720 SVC IDLE * 
000019 1279 ETOH EQU 25 EBCDIC TO HEX SVC (STRING QOO37AE B8FE 1398 JCT T0720,R0 * 
OOOO1A 1280 HTOE EQU 26 HEX TO EBCDIC SVC (STRINGS | 0037B0 6£E03 3ACC 1399 BAL SRECL,R6 RECALI BRATE 
00001B 1281 ATOH EQU 27 ASCII TO HEX SVC (STRING 0037B4 3CDA 1400 DC A (SERRS) ERROR-EXIT 
00001C 1282 HTOA EQU 28 HEX TO ASCII SVC (STRING 0037B6 4CA1 1401 TBIR Mee ER) INTERRUPT ERROR? 
00001D 1283 ETOA EQOU 29 EBCDIC TO ASCII SVC (STRING 0037B8 6A00 3CDA 1402 BON ERRS YES-EXIT 
OOOO01E 1284 ATOR Ou 30 ASCIT TO EBCDIC SVC (STRING 0037BC 4020 38CA 012E 1403 MVWI 302 pRUCENS SEEK TO CE TRACK 
00001F 1285 READI EOQU 31 READ DATA SETS FOR MDI/UTIL 0037C2 4020 38C8 0005 1404 NVWI 5, SKDC SEEK CONTROL WORD 
000020 1286 WRITI EQOU 32 WRITE DATA SETS FOR UTIL 0037C8 4020 38D0 0000 1405 uvWI OO SKDCB+ SELECT HEAD ZERO 
12 BB HR HR RO FR a RR a OE a fe aR a ER RR RR RC a a i Ra RR RR RO OR RO ICC oe ck OO37CE 6E03 3AC4 1406 BAL $ SEEK SEEK TO CE TRACK 
1289 * * 0037D2 3CDA 1407 DC D (SERRS) ERROR- EXIT 
1290 * EQUATES USED BY TU'S AS CONSTANTS * 0037D4 4CA1 1408 TBTR ace ER) INTERRUPT ERROR? 
1291 * * 0037D6 6A00 3CDA 1409 BON ERRS YES-EXIT 
1292 FOO IOI CORO kg OK dak lok dk tok koko kok 0037DA 4020 38A8 200A 1410 MVWI xX'200A',RSDCB READ SECTOR ID EO tEOe WORD 
OOO004E 1293 PLUS EQU Cl+t PLUS CHAR 0037E0 4020 3956 0000 1411 MVWI 0O,LGSEC INIT LOG SECT LO 
000060 1294 MINUS EOU crt MINUS CHAR O0037E6 6E03 3A72 1412 S20B BAL CONVT,R6 CONVERT LOG SECT TO PHYS-1 
000000 1296 ZERO EOQU 0 OO37EA 8028 3959 38AC 1413 MVB PHYSC+1,RSDCBt+4 LOAD PHYSC SECT -1 IN RDSEC DCB 
000001 1297 ONE EQU 1 0037FO0 6503 3AD4 1414 BAL $RDID, RO READ SECTOR ID 
000002 1298 THO EQU. 2 OO37F4 3CDA 1415 DC A (SEPRS) ERROR— EXIT 
000003 1299 THREE FOU 3 0037F6 4CA1 1416 TBTR Lee ER) INTERRUPT ERROR? 
000004 1300 FOUR EQU 4 0037F8 6A00 381E 1617 BON 206 YES-EXIT 
000005 1301 FIVE EOU 5 0037FC 802B 3938 3739 1418 CB ZEROO,SCTID+1 FLAG ZERO? 
000006 1302 SIX EQOU 6 003802 1804 1419 JNE $20C NO 
000007 1303 SEVEN EOU 7 003804 402F 373A 012E 1420 CWI 302, SCTID+2 CE TRACK? 
000008 1304 EIGHT EOU 8 0038048 1009 1421 JE 5206 YES 
000009 1305 NINE EOQU 9 00380C 402F 3956 003B 1422 S20C CWI 59,LGSEC END OF TRACK? 
OOOOOA 1306 TEN EQU 10 003812 6800 3CDA 1423 BE SERRS YES-BAD TRACK-RESTART ROUTINE 
000008 1307 ELEVN EQU 11 11 003816 4029 3956 0001 1424 AWIL 1,LGSEC INCREMENT LOG SECT NUM 
00000C 1308 TWELV EOU 12 12 00381C 50E4 1425 J S508 LOOP 
00000D 1309 THRIN EQU 13 13 1426 S20D TXIT 
OO000F 1310 FIVIN EOU 15 15 00381E 6802 3D2A 1427+S20D B SCONX RETURN TO MDI CONTROLLER 
000010 1311 SIXTN EQU 16 16 VD B&H He He A He hee Ae ae Fe eK he He Fe 2 hee he He he hc ee he he a ae Ree i ok he eH he ae ae i ae 2c ke ee ie he a ac ae ie he ac ac che ae aac 2c he of afc 
000020 1312 THRY2 EOQU 32 32 1429 * 
000040 1313 STXT4 EOU 64 64 1430 * 
000080 1314 ONE28 EQU 128 128 1431 * 
000100 1315 TWO56 EQU 256 256 1433 COPY 17838 O1DEC76 
000400 1316 ONEK EQU 1024 1024 1434 T7838 TUIT SI6E 
000800 1317 TWOK EOU 2048 2048 TUBS a RR RRR KKK RK KARR III tok sok kok kok kk tok kK 40K 0 6 FEB 7 6 
000C00 1318 THREK EQU 3072 3072 1436+* 
001000 1319 FOURK EOD 4096 4096 1437+* TEST UNIT 
FFFFFF 1321 MM EQU -1 -1 143 8+* 
FFFFFE 1322 M2 EQU -2 -2 14394+* T78S16 READ ID TEST LOOP 12/01/76 
FFFFFD 1323 M3 EQU -3 -3 1440+ 
FFFFFC 1324 M4 EQU -4 -4 14414+* PURPOSE 
1326 Hea IR I OR ORI IR RIOR ROR OR BOI IC tok kk tote ar ki a oe kk ke kc a oe T4H42+* 
1327 * * 1443+4+* FUNCTION: 
1328 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * T444+* : 
1329 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 1445+* : SELECT HEAD FROM MDI 
1330 * * 1446+* : READ ID SECTOR #30 
1331 RRR ICICI III I 2 IOI III IC dak go i kook i kok 144 7+* é LOOP UNTIL CE INPUTS ANSWER TO MAP QUESTION. 
000000 1332 BSO EQU 0 TU48+% : 
000001 1333 BS1 EQU 1 1449+ 
000002 1334 BS2 EQU 2 1450+* CALLING SEQUENCE 
000003 1335 BS3 EQU 3 1451+%* 
000004 1336 BS4 EQU 4 1452+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
000005 1337 BS5 EQU 5 1453+ NO STATUS PASSED BACK TO MDI 
000006 1338 BS6 OU 6 1454+ 
000007 1339 BS7 EQU 7 1455+ EXITS NORMAL 
000008 1340 BS8 EQU 8 1456+* MDI TERMINATES LOOP 
000009 1341 BSS EOU 9 1457+* i 
OOOOOA 1342 BS10 FOU 10 1458+ EXITS ERROR 
OOO000B 1343 BS11 Bet 11 1459+* . NONE 
00000C 1344 BS12 EQU 12 1460+* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0039A2 0000 1691 T86GG DC X¥'0000! 1807 * 
0039A4 0000 1692 T41D DC X'0000' 1808 * SUBROUTINE 
0039A6 0000 1693 T41ILP DC X'OO00! 1809 * 
0039A8 9000 1694 WRLCT DC X'O0000! 1810 * PURPOSE 
OO39AA Q000 1695 CYLOC DC X'0000! 1811 * 
0039AC 0000 1696 PASS1 DC A (*-* 1812 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
OO39AE 0000 1697 HEADO DC A (¥*-* 1813 * NORMAL AND TEST DATA. 
0039B0 0000 1698 HEAD1 DC A (*-* 1814 * 
0039B2 0000 1699 GDSEO DC A (¥-* 1815 * CALLING SEQUENCE 
0039B4 0000 1700 GDSE1 DC A (*-* 1816 * 
0039B6 0000 1701 EROO DC A (*-* 1817 * BAL CMPRW,PE (aeeay 
0039B8 0000 1702 ERO1 DC A (*-* 1818 * BAL CMPRT;R6 TEST) 
QO039BA 0000 1703 HDOSV DC A (*-* 1819 * 
003SBC 0000 1704 HD1ISV DC A (*-* 1820 * RETURN 
Q0039BE 0000 1705 EROSV DC A (*-* 1821 * 
0039CO0 0000 1706 ER1ISV DC A (¥-* 1822 * BXS (R6,2) = NORMAL 
0039C2 0000 1707 PATTR DC A (*-* 1823 * 
0039C4 0000 1708 CECYL DC A (*-* 1824 * 
0039C6 0000 1709 STATS DC A (*-* 1825 32 ORR RIO IIRC IOI gO IG GI RC a ak ak a akc ak 
1710 1826 * 
1712 COPY T78DFCIO O1DEC76 OO3Z3A4E 4724 0005 1827 CMPRT MVWI BYTE COUNT 
1713 ** (T78DPCIO) 003A52 4324 396D 1828 MVA eror41 R3 ADDR OF RD SECT ID DATA (TEST 
1714 * 2/07/77 003A56 4524 3966 | 1829 MVA WSIDT, R5 ADDR OF WR SECT ID DATA (TEST 
1715 * EXECUTE DPC INPUT/OUTPUT COMMANDS OO3A5A 5006 1830 J one 
1716 * THIS ROUTINE HAS THE FOLLOWING ENTPIES: Q003A5C 4724 0005 1831 CMPRW MVWI COMPARE BYTE COUNT 
1717 * P 003A60 4324 3739 1832 NVA sertp +1 R3 ADDR OF RD SEC ID DATA 
1718 * 1 BAL CEOP1,R6 CE DIAGNOSTIC OP1(TURN ON DIAG MODE) OO3A64 4524 395E 1833 MVA D,R5 ADDR OF WR SEC ID DATA 
1719 * ° QOO03A68 2BA6 1834 TT4Y CFNEN (3) , (R5) COMPARE ID DATA 
1720 * 2 BAL CEOP2,R6 WRITE DIAG CLOCK STEP DATA OO3A6A 68C0 0002 1835 BE 5) BCH IF WRITE ID DATA OK 
1721 * : QOO3A6E 68D2 0000 1836 Res COMPARE ERROR 
1722 * 3 BAL SENSO,R6 CE READ SENSE WORD ZERO 1837 * 
1723 * tg 1838 =O ORIG IGG RII I RII io ak i gi koi gai gk ak aif ko ak ak 
1724 * 4 BAL SENS1,F6 CE READ SENSE WORD ONE 1839 * 
1725 * P 1840 * SUBROUTINE 
1726 * 5 BAL WRAP,R6 READ DIAGNOSTIC WRAP 1841 * 
1727 * - 1842 * PURPOSE 
‘oe : BXS (26,2) PETURN sane : pou ees LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS 
1730 303 III IGOR RIOR BOR GIORGIO RGR kk ai ak 1845 * SETUE LOGICAL SECTOR # IN LOCATION 'LGSEC?* 
1731 * 1846 * PHYSICAL SECTOR # WILL BE LOADED IN LOCATION 'PHYSC! 
1732 * CE DIAGNOSTIC OP2 DATA WORD (CLOCK STEP) 1847 * 
1733 * 1848 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 
1734 * BIT 00 - SET READY 1849 * LOGICAL- X 00, 1E, O01, , 02, 20, 03, 21, O4, 22, 05, 23, 06, 24, 
1735 * BIT 01 —- RESET READY 1850 * PHYSICAL X 00, 01, 02, 03, O4, 05, 06, 07, 08, 09, OA, OB, OC, OD, 
1736 * BIT 02 - SET WRITE CLOCK 1851 * 
1737 * BIT 03 - SET READ CLOCK 1852 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 
1738 * BIT O04 - INDEX PULSE 1853 * PHYSICAL OE, OF, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 1A, 1B, 
1739 * BIT 05 - SECTOR PULSE 1854 * 
1740 * BIT 06 - STANDARD READ DATA 1855 * LOGICAL- OE, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14%, 32, 
1741 * BIT O07 - SPEED PULSE 1856 * PHYSICAL 1C, 1D, 1E, IF, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29; 
1742 * BIT 08 - BEHIND HOME 1857 * 
1743 * BIT 09 - SET SEEK COMPLETE 1858 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, 
1744 * BIT 10 - RESET SEEK COMPLETE 1859 * PHYSICAL 2h, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, 
1745 * BIT 11 - PLO OUT OF SYNC 1860 * 
1746 * BIT 12 - RST RD/WRT CLOCK 1861 * LOGICAL- 1C, 3A, 1D, 3B, X 
1747 * BLT 13°. i= 1862 * PHYSICAL 38, 39, 3A, 3B, X 
1748 * BIT 14 - 1863 * 
1749 * BIT 15 - RESET DIAGNOSTIC MODE 1864 * 
1750 * 1865 * CALLING SEQUENCE 
1751 IGG I I IG IG ICC ia lok iid lok kok dak ak ak 1866 * 
1J52.°* 1867 * BAL CONVT,R6 
1753 * 1868 * 
0039C8 6E0OD 3736 1754 WRAP MVW R6,LSTIO SAVE ADDRESS OF LAST I0 1869 * RETURN 
0039CC 8028 19D0 3A4B 1755 MVB DEVADD, IDCBRAP+1 LOAD DEVICE ADDRESS IN IDCB 1870 * 
0039D2 680C 3A4A 1756 nae) TDCBRAP READ SENSE WORD 1 1871 * B (TT304+2) 
0039D6 6F05 3A2C 1757 BNCC 7,CCERR CHECK COND CODE 1872 * 
0O039DA 5601 1758 BXS (f6 ,2) RETURN TO CALLER 1873 2 RRR IO ROI IO I IG III OI I GK RG I a IC a Oa cc 
1759 * 1874 * 
0039DC 6E0D 3736 1760 CEOP1 MVW Io SAVE ADDRESS OF LAST I0 Q003A72 6EOD 3AB2 1875 CONVT MVW R6 ,TT3044+2 SETUP RETURN ADDR 
0039EO 8028 19D0 3A43 1761 MVB DEYADD IDCBCE1+1 LOAD DEVICE ADDRESS IN IDOB 003A76 802B 3938 3957 1876 CB ZEROO, LGSEC#1 CK FOR LOG # ZERO 
0039E6 680C 3A42 1762 IO ae BCE SET DIAGNOSTIC MODE OO3A7C 100D 1877 JE TT303° BCH IF LOG # IS ZERO 
OO39EA 6F05 3A2C 1763 BNCC CCERR CHECK COND CODE OO3A7E 802B 3957 395A 1878 CB LGSEC+1,CB29 COMP LOG TO 29 
OO39EE 5601 1764 BXS ‘he, 2) RETURN TO CALLER 003A84 1COD 1879 JGE RTTO1 BCH IF LGSEC EQ OR LESS THAN CB29 
1765 * 003A86 4024 0002 1880 MVWI 2,R0 SETUP MULTIPLIER 
0039FO 6E0D 3736 1766 CEOP2 MVW TIO SAVE ADDRESS OF LAST 10 OO3A8A E821 3957 1881 MB LESEC+1,R0 LOG SECTOR # TIMES 2 
OO39F4 8028 19D0 3A47 1767 MVB DEOADD IDCBCE2+1 LOAD DEVICE ADDRESS IN IDCB OO3A8E 7802 003C 1882 SWI 60,R0 LOG SEC TIMES 2 MINUS 60 
OO39FA 680C 3A46 1768 Io T DCBCE2 WRITE DIAG CLOCK STEP QOO3A92 C028 3959 1883 MVB RO,PHYSC+1 PHYSICAL SECTOR NUMBER 
OO39FE 6F05 3A2C 1769 BNCC 7,CCERR CHECK COND CODE 003A96 500C 1884 J TT3O4 RETURN TO CALLER 
003A02 5601 1770 BXS (R6 , 2) RETURN TO CALLER Q003A98 8028 395C 3959 1885 TT303 MVB FIVE9, PHYSC+1 PHYSICAL SECTOR # 59 
1771 * OO3A9E 5008 1886 en RETURN TO CALLER 
1772 * QOO3AA0 4024 0002 1887 RTTO1 MVWI 2 LOAD NULTIPLIER 
O3A04 6EOD 3736 1773 SENS1 MVW R6,LSTIO SAVE ADDRESS OF LAST IO OO3AA4 E821 3957 1888 MB LESEC+1,RO LOG SECTOR # TIMES 2 
O3A08 8028 19D0 3A3F 1774 MVB DEVADD, IDCB1+1 LOAD DEVICE ADDRESS IN IDIB OO3AA8 7802 0001 1889 SWI RO SUBTRACT ONE 
O3AQ0E 680C 3A3E 1775 IO IDCB1 READ SENSE WORD 2 OO3AAC C028 3959 1890 MVB 6 PHYSC+1 LOAD PHYSICAL SECTOR # 
O3A12 6F05 3A2C 1776 BNCC 7,CCERR CHECK COND CODE OO3ABO 6802 0000 1891 TT304 B RETURN TO CALLER 
03A16 5601 W777 BXS (R6, 2) RETURN TO CALLER 1892 * 
1778 * 1893 FC IO IOI IGG IG RIOR IGOR I IGOR III IO OR aa I aC tk 
O3A18 6EOD 3736 1779 SENSO MVW P6,LST SAVE ADDRESS OF LAST If0 1894 * 
O3A1C 8028 19D0 3A3B 1780 MVB DEVADD, 1DCBO+1 LOAD DEVICE ADDRESS IN IDCB 1895 * SUBROUTINE 
Q03A22 680C 3A3A 1781 IO IDCBO READ SENSE WORD 1 1896 * 
QO3A26 6F05 3A2C 1782 BNCC 7,CCERR CHECK COND CODE 1897 * PURPOSE 
O3A2A 5601 1783 BxS  (R6,2) RETURN TO CALLER 1898 * 
1784 * 1899 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC JID BUFFEP 
O3A2C 706E 1785 CCERR DC X'706E! COPY STATUS ANY LEVEL INTO P3 1900 * 
O3A2E 336A 1786 SRL nae R3 POSITION CC CODE TO BITS 13-15 1901 * CALLING SEQUENCE 
03A30 C328 3732 1787 MVB ;SIOIN * PUT IN LOG AREA 1902 * 
03A34 68D2 0000 4556 : B rete RETURN TO USER age . BAL LWSID,R6 
O3A38 6F05 1790 ITORST DC X'6FO5! RESET 10 1905 * RETURN 
O3A3A 2205 1791 IDCBO DC X*2205! SENSE WORD ZERO 1906 * 
O03A3C 0000 1792 RDATAO DC A (*-* DATA WORD 1907 * BXS (R 6) 
O3A3E 2105 1793 IDCB1 DC X¥*2105' SENSE WORD ONE 1908 * 
03A40 0000 1794 RDATA DC besa 1909 RIOR I IG ISI IGIOI ORIG IGOR GIR OK 
O3A42 4005 1795 IDCBCE1 DC xX*4005!' CE DIAG OP1 1910 * 
O3A44 0000 1796 CEDAT DC Back SENSE DATA 1911 * 
O3A46 4105 1797 IDCBCE2 DC X*4105! CE DIAG OP2 OO3AB4H 4724 0005 1912 LWSID MVWI BYTE COUNT 
O3A48 0000 1798 CEDAT2 bok SENSE DATA OO3AB8 4324 3739 1913 MVA seTtD +1, R ADDR OF RD SECT ID DATA RUFFER 
O3A4A 2F05 1799 IDCBRAP DC X*2F05! READ DIAG WRAP OO3ABC 4524 395E 1914 MVA WRSID, RS ADDR OF WR SECT ID DATA BUFFER 
O3A4UC 0000 1800 RAPDAT DC A (*-* SENSE DA QO3ACO 2BA4 1915 MVFN oF , (B5) MOV DATA FROM RD TO WR BUFFER 
00232 ao aD cPUID EQU) X'0232!' CP0 ID OO3AC2 5600 Have PA BXS RETURN TO CALLER 
1804 COPY T78IO 01DEC76 1919 * 
1805 ** fT 78TO) 1920 * EXECUTE INPUT & OUTPUT COMMANDS 
1806 7a a ok ORO IO II II 7201/7 6 I III IO III IO I IOI IO I IK 1921 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
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NAME 
DUMMY 
ENTPT 
ER 
EXIT 
FAKETU 
FIVE9 
FO00066 
FO0104 
F00107 
F00132 
F00175 
F00178 
F00186 
F00223 
F00226 
FO0234 
F00271 
FO00274 
F00282 
F00319 
F00322 
F00330 
F00367 
F00370 
F00378 
FO0415 
FO00418 
FO00426 
F00463 
FOO4U66 
FOO474 
HEBLK 
HTOE 
IDCBCE1 
IDCBCE2 
IDCBRAP 
IDCBO 
IDCB1 
IDLE 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRNL 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
T7844 
LGSEC 


Pp /N= 
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CROSS-REFPERENCE LISTING 


ATTRIBUTES AND REFERENCES 
ABSOLUTE, HEX VALUE(00000000) 
471.757 793 

HEX LOCATION (00002786) IN 
OTHERS MEE EERE 20090999 2204 
OLUTE. HEX VALUE (00000006) 
HEX LOCATION (00003E42) IN 
RESS. HEX LOCATION (0000395C) IN 
HEX LOCATION(000027AC) IN 
HEX LOCATION (0000344E) IN 
RESS. HEX LOCATION (0000349C) IN 
RESS. HEX LOCATION (00003648) IN 
RESS. HEX LOCATION (00003286) IN 
RESS. HEX LOCATION(000032D4) IN 
RESS. HEX LOCATION (00003448) IN 
ESS. HEX LOCATION(000030BE) IN 
1ESS. HEX LOCATION (0000310C) IN 
RESS. HEX LOCATION (00003280) IN 
RESS. HEX LOCATION(00002EF6) IN 
RESS. HEX LOCATION(00002F44) IN 
RESS. HEX LOCATION(0000308B8) IN 
RESS. HEX LOCATION(00002D2E) IN 
RESS. HEX LOCATION(00002D7C) IN 
RESS. HEX LOCATION(OOO002EFO) IN 
RESS. HEX LOCATION (00002B66) IN 
RESS. HEX LOCATION(00002BB4) IN 
RESS. HEX LOCATION(00002D28) IN 
RESS. HEX LOCATION(0000299E) IN 
RESS. HEX LOCATION(000029EC) IN 
RESS. HEX LOCATION (00002B60) IN 
RESS. HEX LOCATION (000027D6) IN 
RESS. HEX LOCATION (00002824) IN 
RESS. HEX LOCATION (00002998) IN 
RESS. HEX LOCATION(00003E44) IN 
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CSECT (17844 
2246 2271 


CSECT(I7844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT (17844 
CSECT (17844 
CSECT (17844 
CSECT (17844 
CSECT (17844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT(I7844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT (I7844 
CSECT(I7844 
CSECT(I7844 
CSECT (17844 
CSECT(I7844 
CSECT(I7844 
CSECT (I7844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT(I7844 


2 
: OLUTE. HEX VALUE(0000001A) 
{ADBRESS, HEX LOCATION (00003A42) IN CSECT (17844 
; REGS, HEX LOCATION (00003A46) IN CSECT(I7844 
)BBBRESS; HEX LOCATION (00003A4A) IN CSECT(I7844 
REGS, HEX LOCATION (00003A3A) IN CSECT(I7844 
; RESS. HEX LOCATION(00003A3E) IN CSECT(I7844 
: OLUTE, HEX VALUE (00000002) 
OLUTE, HEX VALUE (00000023) 
2 2115 2234 
; RESS. HEX LOCATION(00003C9E) IN CSECT(1I7844 
ADDRESS. HEX LOCATION (00003C06) IN CSECT(I7844 
> ADDRESS. HEX LOCATION(00003C1E) IN CSECT(I7844 
ADDRESS. HEX LOCATION (00003C26) IN CSECT (17844 
; RESS. HEX LOCATION(00003C2A) IN CSECT(I7844 
OLUTE. HEX VALUE (00000000) 
538 568 598 628 658 688 718 
: RESS, HEX LOCATION (00003C5A) IN CSECT (17844 
; RESS. HEX LOCATION (00003C32) IN CSECT(I7844 
ADDRESS. HEX LOCATION(00003C40) IN CsECT(I7844 
: RESS. HEX LOCATION(QO003C4E) IN CSECT(I7844 
RESS. HEX LOCATION (00003C92) IN CSECT(I7844 
1 1495 2104 2334 
RESS. HEX LOCATION (00003C96) IN CSECT(I7844 
1 1964 1967 1970 1982 1985 1988 °1991 
2 2007 2015 2019 2022 2026 2086 2092 
ADRESS. HEX LOCATION(00003C98) IN CSECT (T7844 
CT. STAPT(00002500) LENGTH (6474) ESDID(0) 
RESS. HEX LOCATION (00003956), IN CSECT (17844 
1 1422 1424 1876 1878 1881 1888 
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LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENG TH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
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LENGTH (2) 
LENGTH (2) 
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LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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1207 
1184 
2375 
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NO0014 
NO0015 
NO0016 
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NO0050 
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HEX LOCATION (00003D6C) IN 
LOCATION (00003736) IN 
1766 1773. 1779 2090 
HEX VALUE (00000020) 
HEX LOCATION(00003CF8) IN 
HEX VALUE (0000002C) 


HEX VALUE (00000027) 


HEX 


HEX 
HEX 
HEX 
HEX 
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HEX 
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HEX 
HEX 
HEX 
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HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
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LOC ATTON (000025D0) 
LOCATTON (000025D4) 
LOCATION (000025D8) 
LOCATION (000025DC) 
LOCATION (000025E0) 
LOCATION (00002554) 
LOCATION (000025E8) 
LOCATION (000025EC) 
LOCATION (000025F0) 
LOC ATION (000025 FC) 
LOC ATION (0000260A) 
LOCATION (00002618) 
LOCATION (0000261C) 
LOCATION (00002620) 
LOCATION (0000262C) 
LOCATION (000026 3A) 
LOCATION (00002648) 
LOCATION (0000264C) 
LOCATION (00002650) 
LOCATION (0000265C) 
LOCATION (00002668) 
LOCATION (00002678) 
LOCATION (0000267C) 
LOC ATION (00002680) 
LOCATION (0000268C) 
LOC ATION (0000269A) 
LOCATION (000026A8) 
LOCATION (000026AC) 
LOCATION (000026B0) 
LOCATION (000026BC) 
LOCATION (000026CA) 
LOCATION (000026D8) 
LOCATION (000026DC) 
LOC ATION (000026E0) 
LOCATION (000026EC) 
LOCATION (000026 FA) 
LOCATION (00002708) 
LOC ATION (0000270C) 
LOCATION (000027 10) 
LOCATION (0000271C) 
LOC ATION (00002728) 
LOCATION (00002738) 
LOC ATION (0000273C) 
LOCATION (00002740) 
LOCATION (0000274C) 
LOCATION (0000275A) 
LOC ATION (00002768) 
LOC ATION (0000276C) 
LOCATION (00002770) 
LOCATION (0000277E) 
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CSECT (17844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (I7844 
CSECT(I7844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT(I7844 
CSECT(I7844 
CSECT(I7844 
CSECT(I7844 
CSECT (I7844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (I7844 
CSECT(I7844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT (I7844 
CSECT(I7844 
CSECT (I7844 
CSECT(I7844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT(I7844 
CSECT (17844 
CSECT (17844 
CSECT (17844 
CSECT(I7844 
CSECT(I7844 
CSECT (17844 
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NAME 


N00051 
OPTN1 
OPTN3 
PARMARA 


PHYSC 
PID 


PIDMSG10 
PREP 
RDDCB 
RESET 
RICB 
RK DCB 
RSDCB 
RIT01 
SCTID 


sCcTst 
SKDCB 
START 
SUPSTAT 
S16E 
S20B 
$20C 
S20D 
TO 720 
TS16L 


TT303 
TT304 
TT4Y 
TUMSGWTR 
TUPARN1 
TURTN 
TUSTATUS 
TUWORK 
T20TC 
T20T1 
T20T2 
T72A 
T72B 
T7838 


T7872 
VREDCB 
WKDCB 
WRDCR 
WRSID 
WSDCB 
WSIDT 
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XI 
XIO 


XTOCK 
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65 
ADDRESS, HEX LOCATION (00002780) IN CSECT (17844 
ADDRESS. HEX LOCATION (0000372A) IN CSECT (17844 
1384 1468 2193 2233 
aRDDRESS, HEX LOCATION (0000372E) IN CSECT(I7844 
ADDRESS. HEX LOCATION (0000196E) IN CSECT(I7844 
517 526 547 556 577 86 607 616 
646 667 676 697 #706 727 #1736 751 
ADDRESS. HEX LOCATION (00003958) IN CSECT(I7844 
1413. 1883 1885 18 
ADDRESS. HEX LOCATION(00001800) IN CSECT (17844 
74 75 716 77 78 79 80 81 
83 Bi 85 86 87 88 89 90 
92 93 94 95 96 97 98 99 
10171 102 103 #104 #+#«#4+105 106 #107 + ~+#&=108 
110 #111 112 113° 114 #2115 2383 
ABSOLUTE. HEX VALUE (0000F1F0) 
ABSOLUTE. HEX VALUE(0000000C) 
1496 2338 
ADDRESS. HEX LOCATION (00003908) IN CSECT(I7844 
ABSOLUTE. HEX VALUE (00000008) 
jABSOLUTE. HEX VALUE(00000013) 
ADDRESS. HEX LOCATION (00003928) IN CSECT (17844 
1991 1996 2003 200 
ADDRESS. HEX LOCATION (000038A8) IN CSECT(I7844 
1410 1413 1476 1477. 1970 1975 2007 2012 
iADBRESS- HEX LOCATION(00003AA0) IN CSECT(I7844 
ADDRESS. HEX LOCATION (00003738) IN CSECT(I7844 
1416 1420 1546 1558 1636 1832 1913 1972 
ADDRESS. HEX LOCATION (0000396C) IN CSECT (17844 
1828 2004 2009 2012 
ADDRESS. HEX LOCATION (000038C8) IN CSECT(I7844 
1403 1404 1405 1472: 1473 1964 
ABSOLUTE. HEX VALUE (00000003) 
> RDDRESS. HEX LCCATION(000019C4) IN CSECT(I7844 
ADDRESS. HEX LOCATION (0000385A) IN CSECT(I7844 
1470 1475 1479 
ADDRESS. HEX LOCATION (000037E6) IN CSECT(I7844 
jADDRESS. HEX LOCATION(0000380C) IN CSECT(I7844 
ADDRESS, HEX LOCATION (0000381E) IN CSECT(I7844 
ADDRESS. HEX LOCATION(000037AC) IN CSECT(I7844 
ADDRESS. HEX LOC ATION (00003848) IN CSECT (17844 
513. 522 543 552. 573 82 603 612 
642 663 672 693 702 +723 #732 
jABDRESS. HEX LOCATION (00003A98) IN CSECT (17844 
ADDRESS. HEX LOCATION (00003AB0) IN CSECT(I7844 
1875 1884 1886 
ADDRESS. HEX LOCATION (00003A68) IN CSECT(I7844 
ADDRESS. HEX LOCATION (000018BA) IN CSECT(I7844 
ADDRESS. HEX LOCATION (0000189A) IN CSECT(I7844 
ADDRESS. HEX LOCATION (00003768) IN CSECT(I7844 
1382 1466 1493 1498 2393 
ADDRESS. HEX LOCATION (00001818) IN CSECT (17844 
oADDRESS, HEX LOCATION(0000181A) IN CSECT(I7844 
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